-- card: 2066 from stack: in.2
-- bmap block id: 2533
-- flags: 0000
-- background id: 2738
-- name: default
----- HyperTalk script -----
on closeCard
  global buttontype, sizetype, answertype, fonttype, aligntype
  set lockscreen to true
  hide card fld fonttypes
  put card fld button into buttontype
  put card fld size into sizetype
  put card fld font into fonttype
  put card fld answers into answertype
  put card fld align into aligntype
  show card button "return"
end closeCard



-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=74 top=54 right=79 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Font Types
----- HyperTalk script -----
on mouseUp
  put card fld font into x
  put card field fonttypes into thefont
  DoList 999,thefont,one

  put item 2 of the result into card fld font
  if card fld font is empty then
    put x into card fld font

  end if






end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=74 top=244 right=269 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Button Types
----- HyperTalk script -----
on mousedown
  put card fld buttontypes into z
  put the mouseloc into myPlace
  put item 1 of myPlace - 20 into horiz
  put item 2 of myPlace - 10 into vert
  get PopUpMenu( z, 1, vert, horiz)
  put it into x
  put item x of card fld buttontypes into card fld button
  if cd fld button is empty then
    answer "Try again, this is a pop up menu"
    put item 4 of card fld "buttontypes" into card fld button

  end if
end mousedown




-- part 3 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=88 top=248 right=342 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: buttontypes
----- HyperTalk script -----
on mouseUp
  hide me
end mouseUp



-- part 4 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=98 top=275 right=342 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fonttypes
----- HyperTalk script -----
on mouseUp
  hide me
end mouseUp



-- part 5 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=231 top=52 right=81 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: font
----- HyperTalk script -----
on mouseUp
  answer "This is not a button"
end mouseUp



-- part 9 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=232 top=242 right=271 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: button
----- HyperTalk script -----
on mouseUp

  answer "This is not a button"
end mouseUp




-- part 10 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=0 top=288 right=342 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  go to card build
  answer "Click on Build Expert System to begin"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=74 top=99 right=124 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Font Size
----- HyperTalk script -----

on mousedown
  put card fld fontsize into pp
  put the mouseloc into myPlace
  put item 1 of myPlace - 20 into horiz
  put item 2 of myPlace - 10 into vert
  get PopUpMenu(pp, 1, vert, horiz)
  put it into x


  put item x of card fld fontsize into card fld size
  if cd fld size is empty then
    answer "Try again, this is a pop up menu"
    put item 5 of card fld "fontsize" into card fld size

  end if
end mousedown







-- part 13 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=231 top=97 right=126 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: size
----- HyperTalk script -----
on mouseUp
  answer "This is not a button"
end mouseUp



-- part 14 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=279 top=1 right=86 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fontsize
----- HyperTalk script -----
on mouseUp
  hide me
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=74 top=196 right=221 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Answer Types
----- HyperTalk script -----

on mousedown
  put card fld answertype into pp
  put the mouseloc into myPlace
  put item 1 of myPlace - 20 into horiz
  put item 2 of myPlace - 10 into vert
  get PopUpMenu(pp, 1, vert, horiz)
  put it into x
  put item x of card fld answertype into card fld answers
  if cd fld answers is empty then
    answer "Try again, this is a pop up menu"
    put item 1 of card fld "answertype" into card fld answers

  end if
end mousedown







-- part 17 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=232 top=193 right=222 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: answers
----- HyperTalk script -----
on mouseUp
  answer "This is not a button"
end mouseUp



-- part 18 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=11 top=0 right=28 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: answertype
----- HyperTalk script -----
on mouseUp
  hide me
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=452 top=293 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Tree
----- HyperTalk script -----
on mouseUp
  go to card full
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=74 top=147 right=172 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Text Align
----- HyperTalk script -----
on mousedown
  put card fld aligntype into pp
  put the mouseloc into myPlace
  put item 1 of myPlace - 20 into horiz
  put item 2 of myPlace - 10 into vert
  get PopUpMenu(pp, 1, vert, horiz)
  put it into x
  put item x of card fld aligntype into card fld align
  if cd fld align is empty then
    answer "Try again, this is a pop up menu"
    put item 1 of card fld "aligntype" into card fld align

  end if
end mousedown







-- part 22 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=231 top=145 right=174 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: align
----- HyperTalk script -----
on mouseUp
  answer "This is not a button"
end mouseUp



-- part 23 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=164 top=279 right=336 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: aligntype
----- HyperTalk script -----
on mouseUp
  hide me
end mouseUp



-- part contents for card part 3
----- text -----
Transparent,Opaque,Rectangle,Shadow,roundRect,checkbox,radioButton


-- part contents for card part 14
----- text -----
9,10,12,14,18,24,32,48


-- part contents for card part 18
----- text -----
True-False,Yes-No,A-B,Variable

-- part contents for card part 23
----- text -----
Left,Center,Right

-- part contents for card part 4
----- text -----
Albuquerque,Astrology,Athens,Avant Garde,Beverly Hills,Black Knight,Boston,BostonII,BostonII–NY,Cairo,Calligraphy,Cape Canaveral,Caps,Cartoon,Cavanaugh,Chicago,Commando,Courier,Crypt,Cupertino,Dallas,Doodads,Florence,Geneva,Gimcracks,Gloss,Helsinki,Helvetica,Hollywood,Kawasaki*,London,Los Angeles,Manhattan,MicroAvantGarde,MicroCourier,Mobile,Monaco,New York,OCR-A,Paris,Pierce,Raster,San Francisco,Silicon Beach,Sydney,Symbol,Teeny,ThinAvantGarde,ThinCourier,Thingamajigs,ThinHelvetica,ThinSchoolbook,Times,Tiny,Tiny Ital,Tinytown,Tombstone,Venice,White Shadow,Zapf Chancery,Zapf Dingbats

-- part contents for card part 17
----- text -----
Yes-No

-- part contents for card part 5
----- text -----
Geneva

-- part contents for card part 9
----- text -----
Shadow

-- part contents for card part 22
----- text -----
Left

-- part contents for card part 13
----- text -----
18